﻿Partial Public Class SelectWindow

    Private _rectangle As New Rect
    Public ReadOnly Property Rectangle() As Rect
        Get
            Return _rectangle
        End Get
    End Property

    Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
        _rectangle.X = Me.Left
        _rectangle.Y = Me.Top
        _rectangle.Width = Me.ActualWidth
        _rectangle.Height = Me.ActualHeight
        Me.DialogResult = True
        Me.Close()
    End Sub
End Class
